macro 'make frames'; var i: integer; begin i := 1; while nPics > 0 do begin SelectPic(1); SaveAs('Frame',i:4); Dispose; i := i + 1; end; end;